Dit voorbeeld maakt gebruik van de functie NPV om de netto huidige waarde te geven van een reeks periodieke cash flows in de matrix Values()
. RetRate
vertegenwoordigt de vaste interne rentabiliteit.
Dim Fmt, Guess, RetRate, NetPVal, Msg
Static Values(5) As Double ' Stelt een matrix samen.
Fmt = "###.##0,00" ' Definieer valutanotatie.
Guess = .1 ' Geschatte rentabiliteit begint op 10 procent.
RetRate = .0625 ' Stel vaste interne rentabiliteit in.
Values(0) = -70000 ' Opstartkosten van bedrijf.
' Positieve cash flows die inkomsten voor vier opeenvolgende jaren uitdrukken.
Values(1) = 22000 : Values(2) = 25000
Values(3) = 28000 : Values(4) = 31000
NetPVal = NPV(RetRate, Values()) ' Bereken netto huidige waarde.
Msg = "De netto huidige waarde van deze cash flows is "
Msg = Msg & Format(NettoPVal, Fmt) & "."
MsgBox Msg ' Geef netto huidige waarde weer.